home *** CD-ROM | disk | FTP | other *** search
/ El Mac 9 / El Mac 9.iso / Shareware / Applications / Charting Coach v1.5 / Charting Coach v1.dxr / 00276.ls < prev    next >
Encoding:
Text File  |  1996-04-08  |  2.9 KB  |  96 lines
  1. on mouseUp
  2.   global firstMonthlyDay, stamp, correctionMade, currentCycleNo, cycleNo, userNo, wantsToViewCycles
  3.   cursor(4)
  4.   set wantsToViewCycles to 0
  5.   set x to the mouseV
  6.   set y to the mouseH
  7.   put " " into field "problem"
  8.   if (y < 188) and (y > 122) then
  9.     if (x > 123) and (x < 159) then
  10.       makeCorrection()
  11.     else
  12.       if (x > 84) and (x < 120) then
  13.         if getAt(cycleNo, userNo) > 1 then
  14.           killcorrection()
  15.           if correctionMade = 0 then
  16.             writecycleinfo()
  17.             puppetVisible(13, 48, 1)
  18.             puppetStatus(11, 48, 0)
  19.             go("Precyclelist")
  20.             cursor(0)
  21.           else
  22.             set wantsToViewCycles to 1
  23.             go("save changes")
  24.             cursor(0)
  25.           end if
  26.         else
  27.           cursor(0)
  28.           alert("No previous cycles found.")
  29.         end if
  30.       else
  31.         if (x > 162) and (x < 198) then
  32.           if correctionMade = 0 then
  33.             killcorrection()
  34.             writecycleinfo()
  35.             if currentCycleNo <> getAt(cycleNo, userNo) then
  36.               set currentCycleNo to getAt(cycleNo, userNo)
  37.               readCycleInfo()
  38.             end if
  39.             puppetVisible(13, 48, 1)
  40.             puppetStatus(11, 48, 0)
  41.             prepfrontpage()
  42.           else
  43.             go("save changes")
  44.             cursor(0)
  45.           end if
  46.         end if
  47.       end if
  48.     end if
  49.   else
  50.     if the castNum of sprite 11 = the number of member "nob" then
  51.       if (x > 179) and (x < 206) then
  52.         if (y > 191) and (y < 207) then
  53.           cursor(4)
  54.           if firstMonthlyDay > 1 then
  55.             set firstMonthlyDay to firstMonthlyDay - 1
  56.             resetMonthlyDays()
  57.           end if
  58.         else
  59.           if (y > 500) and (y < 517) then
  60.             cursor(4)
  61.             if (firstMonthlyDay + 11) < count(stamp) then
  62.               set firstMonthlyDay to firstMonthlyDay + 1
  63.               resetMonthlyDays()
  64.             end if
  65.           else
  66.             if (y > 207) and (y < 500) then
  67.               if y > the locH of sprite 11 then
  68.                 if (firstMonthlyDay + 12) < count(stamp) then
  69.                   set firstMonthlyDay to firstMonthlyDay + 2
  70.                   resetMonthlyDays()
  71.                 else
  72.                   if (firstMonthlyDay + 11) < count(stamp) then
  73.                     set firstMonthlyDay to firstMonthlyDay + 1
  74.                   end if
  75.                   resetMonthlyDays()
  76.                 end if
  77.               else
  78.                 if (firstMonthlyDay - 1) > 1 then
  79.                   set firstMonthlyDay to firstMonthlyDay - 2
  80.                   resetMonthlyDays()
  81.                 else
  82.                   if firstMonthlyDay > 1 then
  83.                     set firstMonthlyDay to firstMonthlyDay - 1
  84.                   end if
  85.                   resetMonthlyDays()
  86.                 end if
  87.               end if
  88.             end if
  89.           end if
  90.         end if
  91.       end if
  92.     end if
  93.   end if
  94.   cursor(0)
  95. end
  96.